Atari Mega Archive 1/Atari Mega Archive - Volume 1.iso/language/isetl.arc/primel.t

Text File | 1987-08-20 | 199b | 15 lines

program primes;
    print "Enter N:";
    read N;
    P := [];
    for x in [2..N] do
        if forall y in P | x mod y /= 0
        then P := P + [x];
        end;
    end;

    print P;
    end;

100;